home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
netz
/
amiwin
/
v2.14r-update
/
install_amiwinupd
next >
Wrap
Text File
|
1995-08-26
|
8KB
|
380 lines
(procedure check-amiwin-version
(set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
(if (not(= amiwin-version 131084))
(abort "You do not have AmiWin 2.12 installed.\n");
)
(set amiwin-version (getversion (tackon @default-dest "xsd/aga-1.xsd")))
(if (not(= amiwin-version 131084))
(abort "Your aga-1.xsd driver does not have the correct version\n");
)
(set amiwin-version (getversion (tackon @default-dest "xsd/aga-8.xsd")))
(if (not(= amiwin-version 131084))
(abort "Your aga-8.xsd driver does not have the correct version\n");
)
(set amiwin-version (getversion (tackon @default-dest "libs/xfont.library")))
(if (not(= amiwin-version 131084))
(abort "Your xfont.libray does not have the correct version\n");
)
)
(procedure select-destination-directory
(set @default-dest
(askdir
(prompt "Select the directory where you have "
"installed AmiWin 2.12 reg. The default is "
"probably correct.")
(help "Please specify the directory where you have "
"installed AmiWin 2.12 reg. The default is "
"the X11: directory, i.e. the likely place of "
"your AmiWin installation.")
(default "X11:")
)
)
)
(procedure patchonefile
(copyfiles
(source (tackon srcdir srcfile))
(dest "T:")
(newname "oldfile")
)
(working)
(run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:newfile \"-p" pchfile "\" T:oldfile"))
(copyfiles
(source "T:newfile")
(dest srcdir)
(newname srcfile)
)
(delete "T:oldfile")
(delete "T:newfile")
)
;;;; Start
(set app-name "AmiWin 2.14reg")
(complete 0)
(set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(select-destination-directory)
(check-amiwin-version)
(complete 3)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "aga-1.xsd")
(if (exists (tackon srcdir srcfile)) (
(if (= (getsize (tackon srcdir srcfile)) 83040)
(set pchfile (tackon source-dir "x11/xsd/aga-1-030.pch"))
(set pchfile (tackon source-dir "x11/xsd/aga-1-000.pch"))
)
(patchonefile)
))
(complete 6)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "aga-1.xsd.000")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/aga-1-000.pch"))
(patchonefile)
))
(complete 9)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "aga-1.xsd.030")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/aga-1-030.pch"))
(patchonefile)
))
(complete 12)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "aga-8.xsd")
(if (exists (tackon srcdir srcfile)) (
(if (= (getsize (tackon srcdir srcfile)) 170988)
(set pchfile (tackon source-dir "x11/xsd/aga-8-030.pch"))
(set pchfile (tackon source-dir "x11/xsd/aga-8-000.pch"))
)
(patchonefile)
))
(complete 15)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "aga-8.xsd.000")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/aga-8-000.pch"))
(patchonefile)
))
(complete 18)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "aga-8.xsd.030")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/aga-8-030.pch"))
(patchonefile)
))
(complete 21)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "rtg-1.xsd")
(if (exists (tackon srcdir srcfile)) (
(if (= (getsize (tackon srcdir srcfile)) 116820)
(set pchfile (tackon source-dir "x11/xsd/rtg-1-030.pch"))
(set pchfile (tackon source-dir "x11/xsd/rtg-1-000.pch"))
)
(patchonefile)
))
(complete 24)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "rtg-1.xsd.000")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/rtg-1-000.pch"))
(patchonefile)
))
(complete 27)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "rtg-1.xsd.030")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/rtg-1-030.pch"))
(patchonefile)
))
(complete 30)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "picasso-l-15.xsd")
(if (exists (tackon srcdir srcfile)) (
(if (= (getsize (tackon srcdir srcfile)) 215464)
(set pchfile (tackon source-dir "x11/xsd/picasso-l-15-030.pch"))
(set pchfile (tackon source-dir "x11/xsd/picasso-l-15-000.pch"))
)
(patchonefile)
))
(complete 33)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "picasso-l-15.xsd.000")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/picasso-l-15-000.pch"))
(patchonefile)
))
(complete 36)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "picasso-l-15.xsd.030")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/picasso-l-15-030.pch"))
(patchonefile)
))
(complete 39)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "cybergraphx-15.xsd")
(if (exists (tackon srcdir srcfile)) (
(if (= (getsize (tackon srcdir srcfile)) 213416)
(set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-030.pch"))
(set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-000.pch"))
)
(patchonefile)
))
(complete 42)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "cybergraphx-15.xsd.000")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-000.pch"))
(patchonefile)
))
(complete 45)
(set srcdir (tackon @default-dest "xsd"))
(set srcfile "cybergraphx-15.xsd.030")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/xsd/cybergraphx-15-030.pch"))
(patchonefile)
))
(complete 48)
(set srcdir (tackon @default-dest "libs"))
(set srcfile "xlib.library")
(set pchfile (tackon source-dir "x11/libs/xlib.pch"))
(patchonefile)
(complete 51)
(set srcdir (tackon @default-dest "libs"))
(set srcfile "xt.library")
(set pchfile (tackon source-dir "x11/libs/xt.pch"))
(patchonefile)
(complete 54)
(set srcdir (tackon @default-dest "libs"))
(set srcfile "xmu2.library")
(set pchfile (tackon source-dir "x11/libs/xmu2.pch"))
(patchonefile)
(complete 57)
(set srcdir (tackon @default-dest "libs"))
(set srcfile "xfont.library")
(set pchfile (tackon source-dir "x11/libs/xfont.pch"))
(patchonefile)
(complete 60)
(set srcdir (tackon @default-dest "bin"))
(set srcfile "AmiWin")
(set pchfile (tackon source-dir "x11/bin/AmiWin.pch"))
(patchonefile)
(complete 63)
(set srcdir (tackon @default-dest "bin"))
(set srcfile "twm")
(set pchfile (tackon source-dir "x11/bin/twm.pch"))
(patchonefile)
(complete 66)
(copyfiles
(source (tackon source-dir "x11/bin/Xmag"))
(dest "x11:bin")
)
(complete 69)
(copyfiles
(source (tackon source-dir "x11/bin/Xstdcmap"))
(dest "x11:bin")
)
(complete 72)
(copyfiles
(source (tackon source-dir "x11/bin/Xclipboard"))
(dest "x11:bin")
)
(complete 75)
(copyfiles
(source (tackon source-dir "x11/bin/Xcutsel"))
(dest "x11:bin")
)
(complete 78)
(copyfiles
(source (tackon source-dir "x11/bin/editres"))
(dest "x11:bin")
)
(complete 81)
(copyfiles
(source (tackon source-dir "x11/lib/x11/app-defaults/Xmag"))
(dest "x11:lib/x11/app-defaults")
)
(complete 84)
(copyfiles
(source (tackon source-dir "x11/lib/x11/app-defaults/Xclipboard"))
(dest "x11:lib/x11/app-defaults")
)
(complete 87)
(copyfiles
(source (tackon source-dir "x11/lib/x11/app-defaults/Editres"))
(dest "x11:lib/x11/app-defaults")
)
(complete 90)
(set srcdir (tackon @default-dest "help"))
(set srcfile "AmiWin.guide")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/help/AmiWin_guide.pch"))
(patchonefile)
))
(complete 93)
(set srcdir (tackon @default-dest "help"))
(set srcfile "AmiWin.ps")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/help/AmiWin_ps.pch"))
(patchonefile)
))
(complete 96)
(set srcdir (tackon @default-dest "help"))
(set srcfile "AmiWin.dvi")
(if (exists (tackon srcdir srcfile)) (
(set pchfile (tackon source-dir "x11/help/AmiWin_dvi.pch"))
(patchonefile)
))
(complete 100)
(exit "Installation of the update from AmiWin 2.12 reg to "
"AmiWin 2.14 reg is finished.")